Excel: Concat vb function to concatenate a range of cells. Note: In newer versions of Excel (e.g. Office 365) the built-in TEXTJOIN feature can be used instead. #excel #vb #concatenate

Excel_Concat.xla

Function Concat(rng As Range, Optional sep As String = ",") As String
    Dim rngCell As Range
    Dim strResult As String
    For Each rngCell In rng
        If rngCell.Value <> "" Then
            strResult = strResult & sep & rngCell.Value
        End If
    Next rngCell
    If strResult <> "" Then
        strResult = Mid(strResult, Len(sep) + 1)
    End If
    Concat = strResult
End Function